| FindParentWinControl method |
Applies to
TGUITestCase
Declaration
Function FindParentWinControl(Control :TControl): TWinControl;Implementation
function TGUITestCase.FindParentWinControl(Control: TControl): TWinControl;
begin
while (Control <> nil) and not (Control is TWinControl) do
Control := Control.Parent;
Result := TWinControl(Control);
End; |
|
|